home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / WIN / VB_DB / VBDB.ZIP / FILEMGR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-07-05  |  7.9 KB  |  173 lines
  1. FileForm
  2.     File Form
  3. System
  4. Form1*
  5. LAB_FileName
  6. File &Name:
  7. LAB_Directories
  8. &Directories:
  9. TXT_TextBox
  10. *.dbf
  11. LAB_CurrentDir
  12.     FIL_Files
  13. *.DBF
  14. DIR_Dirs
  15. LAB_Drives
  16. Dri&ves:
  17. BTN_Ok
  18. BTN_Cancel
  19. Cancel
  20. DRV_Drives
  21. LastChange
  22. @    Form_Load0
  23. LAB_CurrentDir    
  24. Caption|
  25. dir_Dirs
  26. path\
  27. HeightR
  28.     FIL_Files
  29. Form_Unload
  30. Cancel
  31. TRUE'
  32. FileForm
  33. CancelOp'
  34. ProcessFileSpecG
  35. FileSpec
  36. MsgBoxResponsep
  37. FALSE
  38. Pattern
  39. TXT_TextBox
  40. MB_YES
  41. HighLightTextBox
  42. SelStart
  43.     SelLength
  44. IsFileNamel
  45. Indexe
  46. OldDir
  47. NewDir"
  48. BTN_Cancel_Click
  49. DIR_Dirs_Change
  50. DIR_Dirs_Click
  51. FIL_Files_Click2
  52. Filename
  53. FIL_Files_DblClickm
  54. BTN_OK_ClickJ
  55. FIL_Files_PathChange
  56. FIL_Files_PatternChangeA
  57.     ListIndex
  58. TXT_TextBox_Change
  59. DRV_Drives_Change
  60. DRV_Drives
  61. Drive
  62. MainMenuv
  63. DriveErrorQ
  64. VBDBErrorHandler
  65. DBVBErrorHandler
  66. FileErrMgr,
  67. ErrorNum
  68. Action
  69. ErrorAction
  70. OldDrive
  71. CurDri
  72. BTN_Cancel_DragOver
  73. Source
  74. State
  75. IsFileMame
  76. DBFName
  77. MAXErrorMsg
  78. CenterWindow
  79. DispDBInfo`
  80. remember what changed last
  81. Form_Load
  82. --- center the windowD
  83. Show full path name in a label
  84. No controls have been modified
  85. Align Drives box to Files boxA
  86. Form_Unload
  87.  Don't unload form, just hide it
  88.  Notify Cardfile form of cancellationl
  89. ProcessFileSpec
  90.  This function accepts a string which may be a directory name,
  91.  a wildcard pattern, or a file name.  The function returns TRUE
  92.  if the string is a valid filename, and FALSE if the string is
  93.  either an invalid filename or a directory specification.  If the
  94.  string specifies a directory, ProcessFileSpec() changes the
  95.  current directory and updates the appropriate form controls.
  96.  Note: This procedure expects FileForm's caption to be set to
  97.  one of "File Save As", "File Open" or "File Merge" in order
  98.  to prompt the user appropriately (eg - 'Replace existingd
  99.  file?' during File Save As, or "File not found' duringn
  100.  File Open/Merge).
  101.  FileSpec is a filename or wildcard, not a dir
  102. Filename too long: '
  103. Did user specify a new wildcard pattern?
  104.  We're finished -- got a valid filename?
  105. File Open"
  106. File Merge
  107. No such file: 
  108. Cardfile
  109. File Save As
  110. Replace existing "
  111. Cardfile
  112.  FileSpec was just a directory name
  113.  The user only specified a new drive (handled in IsFileName)
  114. HighLightTextBox
  115. IsFileName
  116.  This function accepts FileSpec, a string, as input, thenm
  117.  checks to see if the string is a valid file path/expression.
  118.  If FileSpec is valid, and specifies a new drive, pattern and/or
  119.  directory, the directory and file list boxes are notified.n
  120.  If FileSpec contains a valid file name, the filename is placedr
  121.  in the form's text edit box and IsFileName() returns a value of
  122.  TRUE.  If FileSpec does not contain a valid file name (ie, it
  123.  contains directory name and/or a new file pattern and/or an
  124.  invalid file/path expression), IsFileName() returns FALSE.n
  125. Remember current directory
  126. Does it specify new drive?
  127. Disk Error
  128. Separate path/filename, try againf
  129. Parse any directory info
  130. NewDir gets text to the left of & including FileSpec's first "\"
  131. FileSpec becomes the text to the right of the first "\"f
  132. Remove ending "\"f
  133. Invalid path: '"
  134. Cardfile
  135. Update file controls
  136. User specified a new, valid dir; update the file controls
  137. BTN_Cancel_Click
  138. DIR_Dirs_Change
  139.  propogate directory changes to other controls
  140. DIR_Dirs_Click
  141. remember that the DIR_Dirs control changed
  142. FIL_Files_Click
  143. echo the selected name in the Text box
  144. FIL_Files_DblClick
  145. we have a final selection from the File Save dialogn
  146. FIL_Files_PathChange
  147. Show the current search pattern in the TXT_TextBox control
  148. FIL_Files_PatternChange
  149. BTN_OK_Click
  150. Text box control was last changedT
  151. Directory list control was last changedT
  152. TXT_TextBox_Change
  153. DRV_Drives_Change
  154. change the DIR_Dirs control path, it will&
  155. pass the change on to the FIL_Files controln
  156. Modified by Hank Marquis to support error trapping of invalid path.p
  157. now uses the MAXErrorMsg$() function to manage errors. Requies the
  158. ERRHAND.BAS module to operate. -hm
  159. --- set error trap
  160. --- assign pathr
  161. assign path to drive icona
  162. change to drive icon
  163. turn off error trapr
  164. exit sub
  165. --- local error handler 
  166. get error & prompt useri
  167. process result of errort
  168. aborti
  169. reset drive to current
  170. bye-byec
  171. retry / ignore
  172. try again to access item
  173.